############################################
###Manuscript Table 2 ######################
############################################
t2_m1 <- lm(supp_dem2 ~ unauthorised*legal_concerns + age + gender +education, data = dat)
t2_m2 <- lm(supp_dem2 ~ violent*legal_concerns     + age + gender + education, data = dat)
t2_m3 <- lm(supp_dem2 ~ arrest*legal_concerns      + age + gender + education, data = dat)
t2_m4 <- lm(part_dummy2 ~ unauthorised*legal_concerns + age + gender +education, data = dat)
t2_m5 <- lm(part_dummy2 ~ violent*legal_concerns     + age + gender + education, data = dat)
t2_m6 <- lm(part_dummy2 ~ arrest*legal_concerns      + age + gender + education, data = dat)

stargazer (t2_m1, t2_m2, t2_m3, t2_m4, t2_m5, t2_m6)
